将汇率从 NBU 网站导入到 LibreOffice Calc

NBU_RATE() 说明

为经常需要使用货币汇率的人提供现成的功能 国家大学 在 LibreOffice Calc 。

帮助自动获取汇率值 NBU网站 通过其代码和日期。

StarBASIC 函数 NBU_RATE 的代码

添加功能 NBU进口汇率 ，打开菜单 Tools - Macros - Edit Macros... ， 选择 模块1 并将以下文本复制到此模块中：

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

关闭它 Macro Editor 并返回到 LibreOffice Calc 。

现在您可以手动输入我们的函数 NBU_RATE() 。该函数的语法如下：

=NBU_RATE ( 货币代码 ; 日期 )

我们将得到以下结果：

使用扩展

您还可以通过安装免费扩展来使用 NBUA() 函数 YouLibreCalc.oxt 或其全功能版本 YLC_Utilities.oxt 。

之后，该功能将在 LibreOffice Calc 中打开的所有文件中可用。